home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swaga_c.zip / COLOR.SWG / 0007_Hi Intensity Colors.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  876b  |  47 lines
  1. Program HiBack; {Demonstrate use of "High-Intensity" bgd colors}
  2.  
  3. Uses Crt, Dos;
  4.  
  5. Var
  6.   Fgd,Bgd : Integer;
  7.   Regs : Registers;
  8.  
  9. Procedure EnableHighBgd;
  10. begin
  11.   Regs.ax:=$1003;
  12.   Regs.bx:=0;
  13.   Intr($10,Regs);
  14. end; {Procedure EnableHighBgd}
  15.  
  16. Procedure DisableHighBgd;
  17. begin
  18.   Regs.ax:=$1003;
  19.   Regs.bx:=1;
  20.   Intr($10,Regs);
  21. end; {Procedure DisableHighBgd}
  22.  
  23. Procedure ShowAllCombos;
  24. begin
  25.   TextMode(CO80);
  26.   For Fgd := 0 to 15 DO
  27.   begin
  28.    TextColor(Fgd);
  29.     For Bgd := 0 to 15 DO
  30.     begin
  31.       TextAttr := Fgd + (16 * Bgd);
  32.       Write(' Hi ');
  33.     end;
  34.     Writeln;
  35.   end;
  36.   TextAttr := 15;
  37. end; {Procedure ShowAllCombos}
  38.  
  39. begin
  40.   ShowAllCombos;
  41.   Writeln; Write('Press return...'); Readln;
  42.   EnableHighBgd;
  43.   Writeln; Write('Press it again...'); Readln;
  44.   DisableHighBgd;
  45.   Writeln; Write('One last time...'); Readln;
  46. end.
  47.